home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 27 / CDROM27.iso / share / progra / mai / Controls, ListView - Displaying Gridlines in < prev    next >
Encoding:
Text File  |  1997-07-24  |  965 b   |  27 lines
  1. 'Description: Displays "Gridlines" in a ListView Control via API
  2.  
  3. 'Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
  4.  (ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  5.        
  6. 'Public Const LVM_FIRST = &H1000
  7. 'Public Const LVM_SETEXTENDEDLISTVIEWSTYLE = (LVM_FIRST + 54)
  8. 'Public Const LVM_GETEXTENDEDLISTVIEWSTYLE = (LVM_FIRST + 55)
  9. 'Public Const LVS_EX_FULLROWSELECT = &H20
  10. 'Public Const LVS_EX_GRIDLINES = &H1
  11.  
  12.  
  13. 'Place code in a command button
  14. 'Click repeatedly...
  15.  
  16. Static chkSelectMode As Boolean, rStyle As Long, r As Long
  17. rStyle = SendMessageLong(ListView1.hwnd, LVM_GETEXTENDEDLISTVIEWSTYLE, 0&, 0&)
  18.  
  19. If chkSelectMode = False Then
  20.     rStyle = rStyle Xor LVS_EX_GRIDLINES
  21. ElseIf chkSelectMode = True Then
  22.     rStyle = rStyle Or LVS_EX_GRIDLINES
  23. End If
  24.  
  25. r = SendMessageLong(ListView1.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, 0&, rStyle)
  26. chkSelectMode = Not chkSelectMode
  27.